home *** CD-ROM | disk | FTP | other *** search
/ Mac Format 1995 June / MacFormat 25.iso / Shareware City / Developers / fortran-to-c-translator-11 / Mac F2C 1.1 / Mac F2C Libraries / libI77 Sources / wsne.c < prev    next >
C/C++ Source or Header  |  1995-01-28  |  438b  |  29 lines
  1. #include "f2c.h"
  2. #include "fio.h"
  3. #include "lio.h"
  4.  
  5.  integer
  6. #ifdef KR_headers
  7. s_wsne(a) cilist *a;
  8. #else
  9. s_wsne(cilist *a)
  10. #endif
  11. {
  12.     int n;
  13.  
  14.     if(!f__init)
  15.         f_init();
  16.     if(n=c_le(a))
  17.         return(n);
  18.     f__reading=0;
  19.     f__external=1;
  20.     f__formatted=1;
  21.     f__putn = t_putc;
  22.     L_len = LINE;
  23.     f__donewrec = x_wSL;
  24.     if(f__curunit->uwrt != 1 && f__nowwriting(f__curunit))
  25.         err(a->cierr, errno, "namelist output start");
  26.     x_wsne(a);
  27.     return e_wsle();
  28.     }
  29.